define makeaddr proc(x)
	return := proc(y) return := x + y end
end;

define addone proc(k) 
   return := makeaddr(1)(k)
end;

x := 2;
z := addone(2)

